(decode_mode_spec): Add case 'R' for to test for

remote default-directory.

diff --git a/src/xdisp.c b/src/xdisp.c
index a0d5f370678776ec5b2b1b9f708fb72cb06b5594..f53e528d6e806339a9da22f2279a48139fe50135 100644 (file)
--- a/src/xdisp.c
+++ b/src/xdisp.c
@@ -17994,6 +17994,16 @@ decode_mode_spec (w, c, field_width, precision, multibyte)
 #endif
       break;
 
+    case 'R':
+      {
+       Lisp_Object val;
+       val = call1 (intern ("file-remote-p"), current_buffer->directory);
+       if (NILP (val))
+         return "-";
+       else
+         return "@";
+      }
+
     case 't':                  /* indicate TEXT or BINARY */
 #ifdef MODE_LINE_BINARY_TEXT
       return MODE_LINE_BINARY_TEXT (b);